home *** CD-ROM | disk | FTP | other *** search
/ Spanish Scene 1 / SpanishScene1.iso / spanish pack n°1 by llfb / --llfb-- / programas / sources1.dms / sources1.adf / SOURCES / Scroll / SinusScroll.ASM next >
Assembly Source File  |  1996-06-04  |  13KB  |  355 lines
  1. ; ##################################################################
  2. ; ##                                                              ##
  3. ; ##      SINUS-SCROLLER DEMO-SOURCE BY SNOOPY OF LEVEL FOUR      ##
  4. ; ##                                                              ##
  5. ; ##   ONLY ASSEMBLE AND START WITH `J`, THE FONT IS IMPLEMENTED  ##
  6. ; ##                                                              ##
  7. ; ##               THIS IS A PRODUCTION FOR D.I.S.C.              ##
  8. ; ##                                                              ##
  9. ; ##################################################################
  10. ;    org    $60000
  11. ;    load    $60000
  12.  
  13.     Section    Roman,code_c
  14.  
  15. a:
  16.     move.l    #Fun,$80.w        ;Everything into trap
  17.     trap    #0
  18.     clr.l    d0
  19.     rts
  20.  
  21. Fun:    MOVE.L    #Plane3-46,D0        ;Write Address of BitPlane
  22.     MOVE.W    D0,PL1LO        ;into copper to show. 
  23.     SWAP    D0
  24.     MOVE.W    D0,PL1HI
  25.  
  26.     MOVE.L    #Text,TextyPointer    ;Set TextPointer
  27.     MOVE.L    #SinS,SinePointer    ;Set SinePointer
  28.  
  29.     move.l    #Copper,$dff080        ;Init Copper
  30.     clr.w    $dff088
  31.  
  32.     move.l    $6c,oldirq        ; Init Interrupt
  33.     move.l    #vbi,$6c
  34.     move.w    #$8010,$dff09a
  35.  
  36.     move.w    #$0020,$dff096        ;Sprites off
  37.  
  38. wait:    btst    #6,$bfe001
  39.     bne.s    wait
  40.  
  41.     move.w    #$8020,$dff096        ;Sprites on
  42.  
  43.     move.l    $4,a6
  44.     move.l    #gfxname,a1
  45.     clr.l    d0
  46.     jsr    -552(a6)
  47.     move.l    d0,a0
  48.     move.l    38(a0),$dff080        ;Restore Copper
  49.     clr.w    $dff088
  50.     move.w    #$10,$dff09a
  51.     move.l    OldIRQ,$6c        ;Restore Interrupt
  52.     rte                ;Back from trap
  53.  
  54. vbi:    move.w    $dff01e,d0        ;My Interrupt ?
  55.     btst    #4,d0
  56.     bne.s    copirq
  57.     move.l    oldirq,a0
  58.     jmp    (a0)
  59.  
  60. copirq:    move.w    #$0010,$dff09c
  61.     bsr.L    scrolly            ; Scroll the normal scroller
  62.     bsr.L    sineclr            ; Clear Sinus-Plane
  63.     bsr.l    waitblit        ; Wait for Clearblit 
  64.     bsr.L    sine            ; Sine the Scroller
  65.     move.w    #$222,$dff180        ; Used Rastertime is black !
  66.     rte
  67.  
  68. sineclr:bsr.L    WaitBlit
  69.     MOVE.L    #Plane3,$DFF054                ; Dest.
  70.     MOVE.W    #%0000100100000000,$DFF040    ; Miniterm 
  71.     CLR.W    $DFF066                ; Modulo Dest.
  72.     CLR.W    $DFF064                 ; Modulo Source A
  73.     MOVE.W    #4248,$DFF058            ; Size
  74. rts2:    rts
  75.  
  76. sine:    MOVE.W    #%0000110111111100,$DFF040    ; Miniterm: OR
  77.     MOVE.W    #46,$DFF066            ; Modulo Dest.
  78.     MOVE.W    #46,$DFF062            ; Modulo Source B
  79.     MOVE.W    #46,$DFF064             ; Modulo Source A
  80.     lea    Plane1+48,a0            ; From Plane
  81.     lea    Plane3+48,a1            ; To   Plane
  82.     move.l    SinePointer,a2            ; SineTabPointer
  83.     move.b    #24,d0
  84. OutL:    moveq    #3,d1
  85.     move.b    #8,d2                ; This routine is
  86. InL:    move.l    a1,a3                ; documented in
  87.     cmpi.l    #$ffff,(a2)            ; D.I.S.C
  88.     bne.s    nowblit
  89.     lea    SinS,a2
  90. nowblit:add.l    (a2)+,a3
  91.     bSR.L    WaitBlit
  92.     MOVE.L    a0,$DFF050
  93.     MOVE.L    a3,$DFF054
  94.     MOVE.L    a3,$DFF04C
  95.     MOVE.W    d1,$DFF044
  96.     MOVE.W    d1,$DFF046
  97.     MOVE.W    #1025,$DFF058
  98.     LSL.W    #2,d1
  99.     subq.b    #1,d2
  100.     BNE.S    InL
  101.     SUBQ.L    #2,A0
  102.     SUBQ.L    #2,A1
  103.     SUBQ.B    #1,d0
  104.     BNE.S    OutL
  105.     ADDQ.L    #4,SinePointer
  106.     MOVE.L    SinePointer,a0
  107.     cmpi.l    #$ffff,(a0)
  108.     bne.S    rts1
  109.     lea    SinS,a0
  110.     move.l    a0,SinePointer
  111. rts1:    RTS
  112.  
  113. Scrolly:bSR.L    WaitBlit
  114.     MOVE.L    #Plane1,$DFF050
  115.     MOVE.L    #Plane1-2,$DFF054
  116.     MOVE.W    #%1111100111110000,$DFF040
  117.     clr.W    $DFF042
  118.     MOVE.W    #$FFFF,$DFF044            ; Scroll one Pixel
  119.     MOVE.W    #$FFFF,$DFF046            ; left !
  120.     clr.W    $DFF066
  121.     clr.W    $DFF064
  122.     MOVE.W    #920,$DFF058
  123.     ADDQ.L    #1,PrintyZaehler
  124.     CMPI.L    #16,PrintyZaehler
  125.     BLO.s    NochNicht2
  126.     CLR.L    PrintyZaehler
  127.     bSR.s    Printy
  128. NochNicht2:
  129.     RTS
  130. Printy:    CLR.L    CharyZaehler
  131.     MOVE.L    #FontTabel2,A1    ; Try to find the address of the
  132. find2:    MOVE.B    (A1)+,D0    ; ASCII standing in scrolltext !
  133.     MOVE.L    TextyPointer,A2
  134.     CMP.B    (A2),D0
  135.     BEQ.S    gefunden2
  136.     ADDQ.L    #1,CharyZaehler
  137.     bra.s    find2
  138. gefunden2:
  139.     MOVE.L    CharyZaehler,D0
  140.     CLR.L    CharyZaehler
  141.     LSL.L    #1,D0 
  142.     MOVE.L    #CharyPointers,A0
  143.     ADD.L    D0,A0
  144.     CLR.L    D0
  145.     MOVE.W    (A0),D0
  146.     bSR.L    WaitBlit
  147.     MOVE.L    #MegaPL1,A1
  148.     ADD.L    D0,A1
  149.     MOVE.L    A1,$DFF050            ; Now copy into
  150.     MOVE.L    #Plane1+48,$DFF054        ; scrolline !!!
  151.     MOVE.W    #%0000100111110000,$DFF040
  152.     MOVE.W    #$ffff,$DFF044
  153.     MOVE.W    #$ffff,$DFF046
  154.     MOVE.W    #46,$DFF066
  155.     MOVE.W    #38,$DFF064
  156.     MOVE.W    #897,$DFF058
  157.     ADDQ.L    #1,TextyPointer
  158.     MOVE.L    TextyPointer,A0
  159.     MOVE.B    (A0),D0
  160.     CMPi.B    #$FF,D0                ; Textend ???
  161.     BEQ.s    EndOfText
  162.     RTS
  163. EndOfText:
  164.     MOVE.L    #Text,TextyPointer
  165.     RTS
  166.  
  167. Waitblit:
  168.     BTST    #14,$DFF002
  169.     BNE.s    Waitblit
  170.     RTS
  171.  
  172. copper:
  173.     dc.w    $0100,$0200
  174.     DC.W    $008E,$296b
  175.     DC.W    $0090,$29c1
  176.     DC.W    $0092,$0028
  177.     DC.W    $0094,$00d0
  178.     DC.W    $0108,$0004
  179.     DC.W    $010A,$0004
  180.     dc.w    $0182,$0fff
  181.     DC.W    $00E0
  182. PL1HI:    DC.W    $0000,$00E2
  183. PL1LO:    DC.W    $0000
  184.     DC.W    $b001,$fffe,$0100,$1000
  185.     DC.W    $ff01,$fffe,$009C,$8010,$0180,$0000
  186.     DC.W    $FFFF,$FFFE
  187.  
  188. Text:
  189.     DC.B "** ROMAN SOFT / LLFB ** IS SMASHING THE KEYBOARD !!!  GREETINGS"
  190.     DC.B " TO ALL MY FRIENDS, ESPECIALLY TO DRAREG OF OZONE.  BYE !!!!"
  191.     DC.B "               ",$FF
  192.     even
  193.  
  194. FontTabel2:    DC.B    "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-./!^$%"
  195.         DC.B    "&:;`()=*+?,ß "
  196. CharyPointers:    DC.W    0000,0002,0004,0006,0008
  197.         DC.W    0010,0012,0014,0016,0018
  198.         DC.W    0020,0022,0024,0026,0028
  199.         DC.W    0030,0032,0034,0036,0038
  200.         DC.W    0600,0602,0604,0606,0608
  201.         DC.W    0610,0612,0614,0616,0618
  202.         DC.W    0620,0622,0624,0626,0628
  203.         DC.W    0630,0632,0634,0636,0638
  204.         DC.W    1200,1202,1204,1206,1208
  205.         DC.W    1210,1212,1214,1216,1218
  206.         DC.W    1220,1222,1224,1226,1228
  207.         DC.W    1230,1232,1234,1236,1238
  208.  
  209. SinS:    ;SinusTab
  210.     DC.L  1248, 1248, 1248, 1248, 1296, 1296, 1296
  211.     DC.L  1344, 1344, 1392, 1440, 1488
  212.     DC.L  1488, 1536, 1584, 1632, 1632, 1680, 1728, 1776, 1776, 1824
  213.     DC.L  1872, 1872, 1920, 1920, 1968, 2016, 2016, 2064, 2064, 2112
  214.     DC.L  2112, 2160, 2160, 2208, 2208, 2208, 2256, 2256, 2256, 2304
  215.     DC.L  2304, 2304, 2352, 2352, 2352, 2352, 2352, 2352, 2352, 2352
  216.     DC.L  2352, 2400, 2352, 2352, 2352, 2352, 2352, 2352, 2352, 2352
  217.     DC.L  2352, 2304, 2304, 2304, 2256, 2256, 2256, 2208, 2208, 2208
  218.     DC.L  2160, 2160, 2112, 2112, 2064, 2064, 2016, 2016, 1968, 1920
  219.     DC.L  1920, 1872, 1872, 1824, 1776, 1776, 1728, 1680, 1632, 1632
  220.     DC.L  1584, 1536, 1488, 1488, 1440, 1392, 1344, 1344, 1296, 1248
  221.     DC.L  1200, 1152, 1152, 1104, 1056, 1008, 1008, 960, 912, 864
  222.     DC.L  864, 816, 768, 720, 720, 672, 624, 576, 576, 528
  223.     DC.L  480, 480, 432, 432, 384, 336, 336, 288, 288, 240
  224.     DC.L  240, 192, 192, 144, 144, 144, 96, 96, 96, 48
  225.     DC.L  48, 48, 0, 0, 0, 0, 0, 0, 0, 0
  226.     DC.L  0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  227.     DC.L  0, 48, 48, 48, 96, 96, 96, 144, 144, 144
  228.     DC.L  192, 192, 240, 240, 288, 288, 336
  229.     DC.L  336, 384, 432, 480, 528, 528, 576, 624, 624
  230.     DC.L  672, 672, 672, 672, 672, 672, 672, 672, 624, 624
  231.     DC.L  576, 528, 528, 480, 432, 384, 336, 288, 240, 192
  232.     DC.L  144, 144, 96, 48, 48, 0, 0, 0, 0, 0
  233.     DC.L  0, 0, 0, 48, 48, 96, 144, 144, 192, 240
  234.     DC.L  288, 336, 384, 432
  235.     DC.L  432, 480, 480, 528, 576, 576, 624, 672, 720, 720
  236.     DC.L  768, 816, 864, 864, 912, 960, 1008, 1008, 1056, 1104
  237.     DC.L  1152, 1200, 1200, 1248, 1296
  238.     DC.L  1344, 1344, 1392, 1440, 1488
  239.     DC.L  1488, 1536, 1584, 1632, 1632, 1680, 1728, 1776, 1776, 1824
  240.     DC.L  1872, 1872, 1920, 1920, 1968, 2016, 2016, 2064, 2064, 2112
  241.     DC.L  2112, 2160, 2160, 2208, 2208, 2208, 2256, 2256, 2256, 2304
  242.     DC.L  2304, 2304, 2352, 2352, 2352, 2352, 2352, 2352, 2352, 2352
  243.     DC.L  2352, 2400, 2352, 2352, 2352, 2352, 2352, 2352, 2352, 2352
  244.     DC.L  2352, 2304, 2304, 2304, 2256, 2256, 2256, 2208, 2208, 2208
  245.     DC.L  2160, 2160, 2112, 2112, 2064, 2064, 2016, 2016, 1968, 1920
  246.     DC.L  1920, 1872, 1872, 1824, 1776, 1776, 1728, 1680, 1632, 1632
  247.     DC.L  1584, 1536, 1488, 1488, 1440, 1392, 1344, 1344, 1296, 1248
  248.     DC.L  1200, 1152, 1152, 1104, 1056, 1008, 1008, 960, 912, 864
  249.     DC.L  864, 816, 768, 720, 720, 672, 624, 576, 576, 528
  250.     DC.L  480, 480, 432, 432, 384, 336, 336, 288, 288, 240
  251.     DC.L  240, 192, 192, 144, 144, 144, 96, 96, 96, 48
  252.     DC.L  48, 48, 0, 0, 0, 0, 0, 0, 0, 0
  253.     DC.L  0, 0, 0, 0, 0, 0, 0, 0, 0, 0
  254.     DC.L  0, 48, 48, 48, 96, 96, 96, 144, 144, 144
  255.     DC.L  192, 192, 240, 240, 288, 288, 336, 336, 384, 432
  256.     DC.L  432, 480, 480, 528, 576, 576, 624, 672, 720, 720
  257.     DC.L  768, 816, 864, 864, 912, 960, 1008, 1008, 1056, 1056
  258.     DC.L  1104,1104,1104,1152,1152,1152
  259.     DC.L  1152, 1152, 1200, 1200, 1200
  260.     DC.L  $ffff
  261.  
  262. gfxname:    DC.b    "graphics.library",0
  263.     even
  264. SinePointer:        DC.l  00
  265. OldIRQ:            DC.L    0
  266. TextyPointer:        DC.L    0
  267. PrintyZaehler:        DC.L    0
  268. CharyZaehler:    DC.L    0
  269.  
  270. MegaPL1:
  271.     DC.L    $1FE0FFE0,$1FE0FFE0,$1FFC1FFC,$1FE0F03C,$7FF8003C,$F03CF000
  272.     DC.L    $F87CFFE0,$1FE0FFE0,$1FE0FFE0,$1FFC7FF8,$7FF8FFF8,$7FF8FFF8
  273.     DC.L    $7FFC7FFC,$7FF8F03C,$7FF8003C,$F07CF000,$FCFCFFF8,$7FF8FFF8
  274.     DC.L    $7FF8FFF8,$7FFC7FF8,$7878F078,$7878F078,$78007800,$7878F03C
  275.     DC.L    $0780003C,$F0F8F000,$FFFCF078,$7878F078,$7878F078,$78000780
  276.     DC.L    $F03CF03C,$F03CF03C,$F000F000,$F03CF03C,$0780003C,$F1F0F000
  277.     DC.L    $F7BCF03C,$F03CF03C,$F03CF03C,$F0000780,$F03CF03C,$F03CF03C
  278.     DC.L    $F000F000,$F03CF03C,$0780003C,$F3E0F000,$F33CF03C,$F03CF03C
  279.     DC.L    $F03CF03C,$F0000780,$F03CF07C,$F03CF03C,$F000F000,$F000F03C
  280.     DC.L    $0780003C,$F7C0F000,$F03CF03C,$F03CF078,$F03CF078,$78000780
  281.     DC.L    $FFFCFFF8,$F800F83C,$FFC0FFC0,$F8FCFFFC,$0F80007C,$FFE0F800
  282.     DC.L    $F83CF83C,$F83CFFF8,$F83CFFF8,$7FE00F80,$FFFCFFF8,$FC00FC3C
  283.     DC.L    $FFC0FFC0,$FCFCFFFC,$1F8000FC,$FFE0FC00,$FC3CFC3C,$FC3CFFE0
  284.     DC.L    $FC3CFFF0,$1FF81F80,$FC3CFC3C,$FC3CFC3C,$FC00FC00,$FC3CFC3C
  285.     DC.L    $1F80F0FC,$FDF0FC00,$FC3CFC3C,$FC3CFC00,$FC3CFC78,$00781F80
  286.     DC.L    $FC3CFC3C,$FC7CFC7C,$FC00FC00,$FC7CFC3C,$1F80FCFC,$FDF0FC00
  287.     DC.L    $FC3CFC3C,$FC7CFC00,$FC7CFC3C,$007C1F80,$FC3CFFFC,$FFFCFFFC
  288.     DC.L    $FFFCFC00,$FFFCFC3C,$7FF8FFFC,$FCF8FFFC,$FC3CFC3C,$FFFCFC00
  289.     DC.L    $FFFCFC3C,$FFFC1F80,$FC3CFFF8,$7FF8FFF8,$7FFCFC00,$7FF8FC3C
  290.     DC.L    $7FF87FF8,$FCF87FFC,$FC3CFC3C,$7FF8FC00,$7FF0FC3C,$FFF81F80
  291.     DC.L    $FC3CFFF8,$7FF8FFF8,$7FFCFC00,$7FF8FC3C,$7FF87FF8,$FC7C7FFC
  292.     DC.L    $FC3CFC3C,$7FF8FC00,$7FFCFC3C,$FFF81F80,$FC3CFFE0,$1FE0FFE0
  293.     DC.L    $1FFCFC00,$1FE0FC3C,$7FF81FE0,$FC7C1FFC,$FC3CFC3C,$1FE0FC00
  294.     DC.L    $1FCCFC3C,$FFE01F80,$00000000,$00000000,$00000000,$00000000
  295.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  296.     DC.L    $F03CF03C,$F03CF03C,$7878FFFC,$1FE00180,$1FE0FFE0,$F03CFFFC
  297.     DC.L    $1FE0FFE0,$1FE00FE0,$00000000,$001007C0,$F03CF03C,$F03CF03C
  298.     DC.L    $7878FFFC,$7FF80780,$7FF8FFF8,$F03CFFFC,$7FF8FFF8,$7FF87FF8
  299.     DC.L    $00000000,$003807C0,$F03CF03C,$F03CF87C,$7878003C,$78781F80
  300.     DC.L    $78780078,$F03CF000,$7878FFF8,$78787878,$00000000,$007C07C0
  301.     DC.L    $F03CF03C,$F03C7878,$7878003C,$F0FC0780,$F03C003C,$F03CF000
  302.     DC.L    $F03CFFFC,$F03CF03C,$00000000,$00FE07C0,$F03CF03C,$F03C7CF8
  303.     DC.L    $7878003C,$F1FC0780,$003C003C,$F03CF000,$F000007C,$F03CF03C
  304.     DC.L    $00000000,$01FC07C0,$F03CF03C,$F03C3FF0,$7CF80078,$F3BC0780
  305.     DC.L    $0078007C,$F03CF000,$F800003C,$F87C787C,$3FFC0000,$03F807C0
  306.     DC.L    $F83CF87C,$F33C1FE0,$3FF01FF8,$FF3C0780,$1FF80FF8,$FFFCFFE0
  307.     DC.L    $FFE0003C,$7FF87FFC,$3FFC0000,$07F007C0,$FC3C7CF8,$F7BC3FF0
  308.     DC.L    $3FF07FE0,$FE3C0780,$7FE00FF8,$FFFCFFF8,$FFF8007C,$7FF81FFC
  309.     DC.L    $3FFC0000,$0FE007C0,$FC3C7FF8,$FFFC7FF8,$1FE07C00,$FC3C0780
  310.     DC.L    $7C0000FC,$00FC00F8,$F07800FC,$F03C003C,$3FFC0000,$1FC007C0
  311.     DC.L    $FC7C3FF0,$FFFC7FF8,$0780F800,$FC7C0780,$F80000FC,$00FC007C
  312.     DC.L    $F07C00FC,$F03CF07C,$00000E00,$3F800000,$FFFC1FE0,$FFFCFCFC
  313.     DC.L    $0780FFFC,$FFFC7FF8,$FFFCFFFC,$00FCFFFC,$FFFC00FC,$FFFCFFFC
  314.     DC.L    $00001F00,$7F000380,$7FF80FC0,$FFFCFCFC,$0780FFFC,$7FF87FF8
  315.     DC.L    $FFFCFFF8,$00FCFFF8,$7FF800FC,$7FF87FF8,$00001F00,$FE0007C0
  316.     DC.L    $7FF80780,$FCFCF87C,$0780FFFC,$7FF87FF8,$FFFCFFF8,$00FCFFF8
  317.     DC.L    $7FF800FC,$7FF87FF8,$00001F00,$7C0007C0,$1FE00300,$F87CF87C
  318.     DC.L    $0780FFFC,$1FE07FF8,$FFFCFFE0,$00FCFFE0,$1FE000FC,$1FE01FE0
  319.     DC.L    $00000E00,$380007C0,$00000000,$00000000,$00000000,$00000000
  320.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$10000380
  321.     DC.L    $1C700700,$00081FE0,$00000000,$0E0003E0,$1F000000,$010003C0
  322.     DC.L    $1FE00000,$00000000,$00000000,$00000000,$3EF80700,$381C7FF8
  323.     DC.L    $00000000,$1F0007C0,$0F800000,$010003C0,$7FF80000,$00000000
  324.     DC.L    $00000000,$00000000,$3EF83FE0,$7C3E7878,$07000700,$1F000F80
  325.     DC.L    $07C00000,$038003C0,$7FF80000,$00000000,$00000000,$00000000
  326.     DC.L    $3EF87FF0,$7C7CF83C,$0F800F80,$1F000F80,$07C07FF8,$038003C0
  327.     DC.L    $FFFC0000,$00000000,$00000000,$00000000,$1E787FF0,$7CF8FC3C
  328.     DC.L    $0F800F80,$0F001F00,$03E07FF8,$07C003C0,$F07C0000,$00000000
  329.     DC.L    $00000000,$00000000,$0C307700,$39F0FE3C,$0F800F80,$06001F00
  330.     DC.L    $03E07FF8,$FFFE7FFE,$00780000,$00000000,$00000000,$00000000
  331.     DC.L    $18607FE0,$03E07FF8,$07000700,$0C001F00,$03E07FF8,$7FFC7FFE
  332.     DC.L    $00F80000,$00000000,$00000000,$00000000,$00007FF0,$07C03FF8
  333.     DC.L    $00000000,$00001F00,$03E00000,$3FF87FFE,$03F00000,$00000000
  334.     DC.L    $00000000,$00000000,$00003FF0,$0F807BF0,$07000700,$00001F00
  335.     DC.L    $03E07FF8,$1FF07FFE,$07C00380,$00000000,$00000000,$00000000
  336.     DC.L    $00000770,$1F38F1F8,$0F800F80,$00001F00,$03E07FF8,$1FF003C0
  337.     DC.L    $078007C0,$00000000,$00000000,$00000000,$00007FF0,$3E7CFFFC
  338.     DC.L    $0F800F80,$00001F00,$03E07FF8,$3FF803C0,$000007C0,$00000000
  339.     DC.L    $00000000,$00000000,$00007FF0,$7C7C7FFE,$0F800F80,$00000F80
  340.     DC.L    $07C07FF8,$3C7803C0,$030007C0,$00000000,$00000000,$00000000
  341.     DC.L    $00003FE0,$F87C7FFC,$07000780,$00000F80,$07C00000,$701C03C0
  342.     DC.L    $078003C0,$00000000,$00000000,$00000000,$00000700,$70381FE8
  343.     DC.L    $00000300,$000007C0,$0F800000,$400403C0,$07800180,$00000000
  344.     DC.L    $00000000,$00000000,$00000700,$20000000,$00000600,$000003E0
  345.     DC.L    $1F000000,$00000000,$03000300,$00000000,$00000000,$00000000
  346.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  347.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  348.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  349.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  350.  
  351. Plane1:        ;BLK.B    1000,00
  352.         blk.b    10240,0
  353. Plane3:        ;BLK.B    5000,00
  354.         blk.b    10240,0
  355.